home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / iritsm3s.zip / CONE-CYL.IRT < prev    next >
Text File  |  1991-12-15  |  808b  |  44 lines
  1. #
  2. # Intersection of cone and a cylinder:
  3. # Try this one with resolution equal 20 - slower, but much nicer!
  4. #
  5. #            Created by Gershon Elber,    Jan. 89
  6. #
  7.  
  8. save_mat = view_mat;
  9. view_mat = view_mat * scale(vector(0.2, 0.2, 0.2));
  10. save_res = resolution;
  11. resolution = 8;
  12.  
  13. cone1 = cone(vector(0,0,-1),vector(0,0,4),2);
  14. cylin1= cylin(vector(0,3,1),vector(0,-6,0),0.7);
  15.  
  16. a1 = cone1+cylin1;
  17.  
  18. interact(list(a1), false);
  19. free(a1);
  20.  
  21. a2 = cone1*cylin1;
  22. interact(list(a2), false);
  23. free(a2);
  24.  
  25. a3 = cone1-cylin1;
  26. interact(list(a3), false);
  27. free(a3);
  28.  
  29. a4 = cylin1-cone1;
  30. interact(list(a4), false);
  31. free(a4);
  32.  
  33. intercrv = true;
  34. a5 = cone1*cylin1;
  35. interact(list(a5,cylin1,cone1), false);
  36. free(a5);
  37. intercrv = false;
  38.  
  39. free(cylin1);
  40. free(cone1);
  41.  
  42. resolution = save_res;
  43. view_mat = save_mat;
  44.